home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00085_Pano Callbacks.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.3 KB  |  68 lines
  1. global gqtvrinstance, roomnumber, codelist, objectpict, newfile, objnamesprite, light, pointx, pointy, vrflag, objmarker
  2.  
  3. on InitPanoCallbacks
  4.   if isqtvrmovie(gqtvrinstance) then
  5.     qtvrsetrolloverhotspothandler(gqtvrinstance, "RolloverHotSpotHandler")
  6.     qtvrsetmousestilldownhandler(gqtvrinstance, "MouseStillDownHandler")
  7.   end if
  8. end
  9.  
  10. on rolloverhotspothandler pHotSpotID
  11.   set nodeid to qtvrgetnodeid(gqtvrinstance)
  12.   if length(string(nodeid)) = 1 then
  13.     set nodeid to "0" & string(nodeid)
  14.   end if
  15.   set newfile to getaProp(codelist, nodeid & pHotSpotID)
  16.   if (pHotSpotID <> 0) and not voidp(newfile) then
  17.     set vrflag to value(the last char in newfile)
  18.     set newfile to char 1 to 6 of newfile
  19.     puppetSprite(objnamesprite, 1)
  20.     set smallpict to "A" & newfile & "1"
  21.     set objecttext to newfile
  22.     if vrflag = 1 then
  23.       set the visible of sprite objmarker to 1
  24.       put newfile into field "Current Object"
  25.     else
  26.       set the visible of sprite objmarker to 0
  27.     end if
  28.     if (the number of member smallpict > 0) and (the number of member objecttext > 0) then
  29.       set the visible of sprite objectpict to 1
  30.       set the visible of sprite light to 1
  31.       set the visible of sprite objnamesprite to 1
  32.       swapmember(objectpict, smallpict, 1)
  33.       swapmember(objnamesprite, objecttext)
  34.       if the right of sprite objnamesprite > 640 then
  35.         set the locH of sprite objnamesprite to the locH of sprite objnamesprite - 15
  36.       end if
  37.       updateStage()
  38.     end if
  39.   else
  40.     qtvrexitmouseover(gqtvrinstance)
  41.     set the visible of sprite objmarker to 0
  42.     set the visible of sprite objectpict to 0
  43.     puppetSprite(objnamesprite, 0)
  44.     set the visible of sprite light to 0
  45.   end if
  46. end
  47.  
  48. on mousestilldownhandler
  49.   if isqtvrmovie(gqtvrinstance) then
  50.     set nodeid to qtvrgetnodeid(gqtvrinstance)
  51.   end if
  52.   compass(360 - qtvrgetpanangle(gqtvrinstance) + getAt(anglelist, nodeid), 20, pointx, pointy)
  53. end
  54.  
  55. on nodeleavehandler
  56.   set panAngle to the text of member "PanAngle"
  57.   set tiltAngle to the text of member "TiltAngle"
  58.   set FOV to the text of member "FOV"
  59.   set quality to the text of member "Quality"
  60.   SetMovieView(panAngle, tiltAngle, FOV, "3", "1", quality)
  61.   set tfov to qtvrgetfov(gqtvrinstance)
  62.   repeat while tfov > 30
  63.     set tfov to tfov - 5
  64.     qtvrsetfov(gqtvrinstance, string(tfov))
  65.     qtvrupdate(gqtvrinstance)
  66.   end repeat
  67. end
  68.